home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / moden / addatab.int < prev    next >
Text File  |  1996-04-08  |  1KB  |  49 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   ADDATAB.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit ADDataB;
  13.   {-INI/Database concepts}
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils,
  19.   Classes,
  20.   OoMisc;
  21.  
  22. type
  23.   {.Z+}
  24.   {information about one field in an INI database}
  25.   TDBFieldInfo = class(TObject)
  26.   public
  27.     Len   : Word;
  28.     IsStr : Boolean;
  29.     Name  : String;
  30.  
  31.     constructor CreateString(const FldName : String; const FldLen : Word);
  32.     constructor CreateInt(const FldName : String);
  33.     constructor Copy(const FI : TDBFieldInfo);
  34.   end;
  35.  
  36.   {a list of TDBFieldInfos}
  37.   TDBFieldList = class(TList)
  38.   public
  39.     procedure StrsToPChars(var StrRec, PCharRec);
  40.       {-Convert a record with string variables to a record with PChars}
  41.     procedure PCharsToStrs(var PCharRec, StrRec);
  42.       {-Convert a record with PChar variables to a record with strings}
  43.   end;
  44.   {.Z-}
  45.  
  46.   {an indexed field}
  47.   TDBIndexedField = String[MaxNameLen];
  48.  
  49.